home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / zlaset.z / zlaset
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. ZZZZLLLLAAAASSSSEEEETTTT((((3333FFFF))))                                                          ZZZZLLLLAAAASSSSEEEETTTT((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      ZLASET - initialize a 2-D array A to BETA on the diagonal and ALPHA on
  10.      the offdiagonals
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      SUBROUTINE ZLASET( UPLO, M, N, ALPHA, BETA, A, LDA )
  14.  
  15.          CHARACTER      UPLO
  16.  
  17.          INTEGER        LDA, M, N
  18.  
  19.          COMPLEX*16     ALPHA, BETA
  20.  
  21.          COMPLEX*16     A( LDA, * )
  22.  
  23. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  24.      ZLASET initializes a 2-D array A to BETA on the diagonal and ALPHA on the
  25.      offdiagonals.
  26.  
  27.  
  28. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  29.      UPLO    (input) CHARACTER*1
  30.              Specifies the part of the matrix A to be set.  = 'U':      Upper
  31.              triangular part is set. The lower triangle is unchanged.  = 'L':
  32.              Lower triangular part is set. The upper triangle is unchanged.
  33.              Otherwise:  All of the matrix A is set.
  34.  
  35.      M       (input) INTEGER
  36.              On entry, M specifies the number of rows of A.
  37.  
  38.      N       (input) INTEGER
  39.              On entry, N specifies the number of columns of A.
  40.  
  41.      ALPHA   (input) COMPLEX*16
  42.              All the offdiagonal array elements are set to ALPHA.
  43.  
  44.      BETA    (input) COMPLEX*16
  45.              All the diagonal array elements are set to BETA.
  46.  
  47.      A       (input/output) COMPLEX*16 array, dimension (LDA,N)
  48.              On entry, the m by n matrix A.  On exit, A(i,j) = ALPHA, 1 <= i
  49.              <= m, 1 <= j <= n, i.ne.j; A(i,i) = BETA , 1 <= i <= min(m,n)
  50.  
  51.      LDA     (input) INTEGER
  52.              The leading dimension of the array A.  LDA >= max(1,M).
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.